COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
C00004 ENDMK
C⊗;
PRECEDE;  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
FUNC FUN.FUN[SCR,LCS];
INST TOOT TOP BOTM;
*
INSERT 2  ;
EXIT;
TOP  0 1 8;	< BG time=0, inst 1 plays 8 notes.

P2 RHY/8/16//8//4//2; < Rhythm is 8th,  2 16ths,  2 8ths,  2 quarters,
                       half.  See section 4 and following for use
       		       of 'RHY', 'NOTES', etc.
        
P3 NOTES/C4/D/E/F/G/A/B/C5; < Scale goes up from middle C.

P4 .45;  < AMPLITUDE FACTOR
P5 F2; < SOSTENUTO ENVELOPE
P6 F0;  < A SINE WAVE
END;< Ampl(P4)=500, envelope is sostenuto (F2).

BOTM ;      P2 RHY/4 X 4/2/FINE; < 4 quarters and 1 half. 'FINE'=END

P3 NOTES/C3/A/F/G/C;<Bass notes

P4 .5 ; 
< AMPLITUDE FACTOR IS .5
P5 F3; < F3 will give semi-staccato.
P6 F4; < CLARINET-LIKE TONE
END;

TEMPO/ 96 ; < MM=96 

RUN;